unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, PeeblesMainForm, Peebles;

type
  TPeeblesMainForm1 = class(TPeeblesMainForm)
    procedure FormShow(Sender: TObject);
  protected
    procedure OnTimer(var Msg: TWMTimer); override;
  end;

var
  PeeblesMainForm1: TPeeblesMainForm1;

implementation

{$R *.dfm}

procedure TPeeblesMainForm1.FormShow(Sender: TObject);
begin
  Jail.NewPeeble(TPeeble, 50, 50);
end;

procedure TPeeblesMainForm1.OnTimer(var Msg: TWMTimer);
var
  i: Integer;
begin
  for i := 0 to Jail.Peebles.Count-1 do
    Jail.Peebles[i].Step;
  inherited;
end;

end.
